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MODULE PATLST ( 
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IF VARIANT EQL 1 | 
ap] ADDRESSING MODE (EXTERNAL = LONG RELATIVE, NONEXTERNAL = LONG RELATIVE), | 
IDENT = 'V04-000") = | 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980. 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


't THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bcos ~ -e THE 


!® TRANSFERRED. 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
see okat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONS 
!® SOFTWARE ON EQUIPMENT WHIC 


'® 
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FUNCTIONAL DESCRIPTION: 
CREATES AND ADDS ITEMS TO A LINKED LIST 
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; 
: 
! 
0 ! 

0039 ' Version: x01.05 

0040 ! 

0041 ! History: 

Bneg ' Lahore 

ooed Carol Peters, 28 Oct 1976: Version 01 

0045 i Modified by: 

474 : Kathleen Morse, 19 Oct 1977: Version x01.00 

0048 1 i VO1-05 MTROOO1 © —=s Mike Rhodes _ 07-Oct-1981 | 

Bpee ! Zero the Linked argument List TAIL pointer also upon 
bey command completion. Routine PATSFREE_ARG. 

0084 i Revision history: | 
bez NO DATE PROGRAMMER PURPOSE | 
055 i 

0085 ! 00 11-OCT-77 K.D. MORSE ADAPT VERSION 8 FOR PATCH, 

0057 ' 01 O5-JAN-78 K.D. MORSE NO CHANGES FOR VERS 9. | 
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¢ GLOBAL ROUTINE PATSADD_ARG (EXPRESSION) = 
ves 
? ' FUNCTIONAL DESCRIPTION: 
9 ADDS AN ELEMENT TO A LINKED LIST OR CREATES A LINKED 
90 : LIST AND INSERTS THE FIRST ELEMENT. 
91 HE ADDRESS OF THE HEAD OF THE LIST IS _AT PATSGL_HEAD_LST 
y 9 AND THE ADDRESS THE TAIL AT PATSGL_TAIL_LST. 
y 9 THIS ROUTINE ONLY PUTS A SINGLE VALUE-IN TRE LIST ELEMENT, 
32 0 4 AND IT PUTS IT AT THE LONGWORD AFTER THE POINTER. 
38 0 2 CALLING SEQUENCE: 
98 8 PATSADD_ARG (EXPRESSION) 
8 INPUTS: 
¢ 8 EXPRESSION = VALUE TO PUT IN LIST ELEMENT 
¢ 5 IMPLICIT INPUTS: 
0 THE HEAD AND TAIL OF THE LINKED LIST. 
0. THE LENGTH OF A LIST ELEMENT (LIST_ELEM_LEN). 


OUTPUTS: 


THE ADDRESS OF THE NEW ELEMENT IF SPACE FOR THE LIST 
ELEMENT WAS FOUND. OTHERWISE A ZERO. 


IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

THE POINTER TO THE ELEMENT, OR A ZERO IF NO ELEMENT WAS ALLOCATED. 
SIDE EFFECTS: 

THE LIST ELEMENT IS WRITTEN. THE TAIL OF THE LIST IS REWR 


ITTEN. 
IF THE LIST WAS CREATED, BOTH THE HEAD AND THE TAIL ARE WRITTEN 
TO THEIR GLOBAL VARIABLE NAMES. 
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BEGIN 
LOCAL 


WN “SO OOBVNAUESWN —OOONOUS WN "O0On 


POINTER; 


POINTER = PATSFREEZ (LIST 
f (.PATSGL_HEAD_LST EQL 0 


PATSGL_HEAD_LST = .POINTER 
LIST_ELEM_FLINK (.PATSGL_TAIL_LST) = .POINTER; 


FLER_LEM); 
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ELSE 
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POPMMIWINIPNINDNDD 2 9 9 8 8 8 9 9 9 9 9 hh 
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FP SP or ot ot ot ot ot et ot ot te ee 


uw 
owe 


: 141 439 2 LIST_ELEM_FLINK (.POINTER) = 0; 
; 14g 440 2 PAT$GL_TATL LST =" POINTER 
: 14 441 2 LIST ECEM EXP] (.POINTER) = .EXPRESSION 
: 144 4 RETURN .POINTER 
: 145 044 END; 
.TITLE PATLST 
“IDENT \V04-000\ 
.EXTRN PATSFAO QUT PATSFREEZ 
*EXTRN PATSFREER ELEAS 
“EXTRN PATS$GL_H AEA D.tst 
“EXTRN PATSGL-TAIL-LST 
“WEAK © ACCESS CHEER 
.PSECT _PATSCODE,NOWRT,2 
0004 00000 .ENTRY PATSADD_ARG, Save R2 : 0382 
52 000000006 FF 9E 00002 MOVAB PATS$GL_READ.LST, R2 ; 
4 DD 00009 PUSHL us + 0433 
000000006 EF 01 FB 0008 CALLS PATSFREEZ ; 
62 D5 0001 TSTL patser _HEAD_LST + 0434 
05 12 00014 BNE : 
62 50 D0 00016 MOVL § POINTER, PAT$GL_HEAD_LST + 0436 
07 11 00019 BRB : 
000000006 FF 50 D0 0018 1$: MOVL POINTER, @PATSGL_TAIL_LST + 0438 
60 D4 00022 2$: CLRL (POINTER) > 0439 
000000006 EF 50 DO 00024 MOVL POINTER, PAT$GL_TAIL_LST + 0440 
04 AO 04 AC dO 00028 MOVL EXPRESSION, 4(POINTER) > 0441 
04 00030 RET + 0443 


N 7 
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; Routine Size: 49 bytes, Routine Base: _PATS$CODE + 0000 


: 147 444 1 GLOBAL ROUTINE PATSFREE_ARG : NOVALUE = 

: 148 445° 4 

: 149 44g 1 +4 

$ 129 Beek ! FUNCTIONAL DESCRIPTION: 

; 13¢ 0449 1 | FREES EACH ELEMENT OF A LINKED LIST, AND ZEROES THE 
>; 15 0450 1} POINTER TO THE LIST. 

: 154 0451 1 | THIS ROUTINE IS INTENDED TO BE CALLED AT THE END OF 
; 139 Q4o¢ PROCESSING OF A COMPLETE COMMAND LINE. 

: 157 0454 1 | CALLING SEQUENCE: 

; 158 0455 1 | 

: 159 0456 1 | PATSFREE_ARG () 

: 160 0457 1: 

: 161 0458 1 | INPUTS: 

; 16 0459 1 | 

; 16 0460 1 | NONE 

> 164 461 1! 

> 165 462 1 | IMPLICIT INPUTS: 

> 166 0463 1 | 

: 167 0464 1 / THE HEAD OF THE LINKED LIST. 

: 168 0465 1 THE LENGTH OF A LIST ELEMENT (LIST_ELEM_LEN). 
> 169 0466 1! 

: 170 0467 1 | OUTPUTS: 

: 171 0468 1 | 

: 172 0469 1: NONE 

: 173 0470 1 | 

> 174 0471 1 | IMPLICIT OUTPUTS: 

> 175 0472 1 

: 176 0473 1 | NONE 

: 177 0474 1 | 

: 178 0475 1 | ROUTINE VALUE: 

: 179 0476 1} 

: 180 0477 1 | NOVALUE 

> 181 0478 1: 

: 182 0479 1 | SIDE EFFECTS: 

: 183 0480 1} 

; 184 0481 THE ELEMENTS OF THE LIST ARE RETURNED TO THE FREE STORAGE POOL. 
: 186 483 1 i-- 

: 187 484 1 

: 188 0485 2 BEGIN 

> 189 0486 

: 190 487 LOCAL 

: 191 488 POINTER1, 

: 198 0489 POINTER2: 

: 19 0490 

: 194 0491 2 IF (POINTER1 = .PATSGL_HEAD_LST) EQL 0 

> 195 49 THEN RETURN 

: 196 49 ELSE DO 

: 197 49% BEGIN 

: 198 0495 POINTER2 = .LIST_ELEM FLINK (.POINTER1); 
> 199 49 PAT SFREERELEASE T.POINTER1, LIST_ELEM_LEN); 
: Bf 498 2 UNTIL (POINTER1 = ,POINTER2) EQL 0; 

; 208 499 2 PAT$GL_HEAD_LST = 6; 

: 20 500 2 PATS$GL-TAIL“LST = 0; 


FFF 


| 
' 
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; 204 0501 1 END; 


v= 


001¢ 0000 .ENTRY PATSFREE ARG, “ve R2,R3,R4 : 0444 
54 000000006 EF 9E 0000 MOVAB PAT$GL_HEAD : 
52 64 p 900 MOVL PATSGL- HEAD- St" POINTER 
53 62 D0 itd (POINTER1), POINTERZ 
04 DD 0001 : 
2 DD 0001 PUSHL INTER1 F 
000000006 EF 0¢ FB 0001 CALLS WD PATSFREERELEASE ; 
52 53 DO 0001 MOVL POINTER2, POINTER} + 0498 
ED 12 0001 BNEQ 1$ : 
64 04 0002 CLRL  PAT$GL_HEAD_LST + 0499 
000000006 EF D4 0002 CLRL  PAT$GL~TAIL“LST + 0500 
04 00029 2$ RET : 0501 


; Routine Size: 42 bytes, Routine Base: _PATSCODE + 0031 
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PSECT SUMMARY 
Name Bytes Attributes 
_PATSCODE 91 NOVEC,NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


perpen Symbols -o--<---- Pages Processing 

: File Total Loaded Percent Mapped Time 

; _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /VARIANT:1/LIS=LIS$:PATLST/OBJ=O0BJ$:PATLST MSRC$:PATLST/UPDATE=(ENH$:PATLST) 
; Size: 91 code + 0 data bytes 


: Elapsed Time:  00:28.2 


5988 
; Cexemes/CPU-Min: 20333 
: pee’ he Used: 48 pages 
; Compilation Complete 


0302 SiS tz SE DIGITAL EQUIPM 
Wave AXOUMa V4. ~ ‘<1ee CONFIDENTIAL LA 


